home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / utils / scalos-1.2 / install.scalos < prev    next >
Text File  |  1999-01-01  |  13KB  |  660 lines
  1. ; Scalos Installation Script (c)1997 fOX! (17.09.1997)
  2.  
  3. (set languages-default 1)
  4.  
  5. ;WICHTIG !!!!!!!!!!!!!!!!!!!
  6. ;APPNAME=Scalos
  7. ;im InstallIcon
  8.  
  9.  
  10. ;===[ ENGLISH ]==============================================================
  11.  
  12. (set language-default 1)
  13.  
  14. (set guides-default 1)
  15.  
  16. (set #bad-kick "You must be using Kickstart 3.0+ to install Scalos")
  17.  
  18. (set #bad-cpu "You require at least a 68020 or higher processor to run Scalos")
  19.  
  20. (set #bad-mui "Requires MUI 3.6+")
  21.  
  22. (set #install-start
  23.     (cat
  24.         "\n\nWelcome to Scalos Installation\n\n"
  25.         "Done by fOX!/ALiENDESiGN\n\n"
  26.     )
  27. )
  28. (set #install-exit
  29.     (cat
  30.         "Thank you for installing Scalos ..."
  31.     )
  32. )
  33.  
  34. (set #where-scalos "Where would you like to install Scalos? (no Scalos directory will be created!)")
  35.  
  36. (set #where-scalos-help
  37.     (cat
  38.         "Scalos will be installed directly into the"
  39.         " desired directory. An assign Scalos: is made"
  40.         " right after the creation of the directory"
  41.     )
  42. )
  43.  
  44. (set #where-scalosprefs "Where is the place for the preferences editors?")
  45.  
  46. (set #where-scalosprefs-help
  47.     (cat
  48.         "This is the destination directory of all Scalos preferences"
  49.         " editors!\n\n Normaly ALL Scalos preferences editors are in Scalos:Prefs !"
  50.     )
  51. )
  52.  
  53. (set #languages-select    "Which languages should be installed?")
  54.  
  55. (set #languages-select-help
  56.     (cat
  57.         "Please select your favourite language that should be"
  58.         " copied to your Locale: directory?"
  59.     )
  60. )
  61.  
  62. (set #guides-select    "Which guides should be installed?")
  63.  
  64. (set #guides-select-help
  65.     (cat
  66.         "Please select your favourite language that should be"
  67.         " copied to the Scalos home directory?"
  68.     )
  69. )
  70.  
  71. (set #moduletype-select "Which Moduletype (see help) should be installed?")
  72.  
  73. (set #moduletype-select-help
  74.     (cat
  75.         "The Moduletype is the kind of userinterface that"
  76.         " you'll see when you for example delete files..."
  77.     )
  78. )
  79.  
  80. (set #plugin-select "Do you want to install some useful tools and plugins for Scalos")
  81.  
  82. (set #plugin-select-help
  83.     (cat
  84.         "One plugin for example might be useful for you if you want"
  85.         " a sorted cleanup of the icons..."
  86.     )
  87. )
  88.  
  89. (set #autostart-select "Do you want to install Scalos as Workbench replacement?")
  90.  
  91. (set #autostart-select-help
  92.     (cat
  93.         "If you select YES this installscript will rename the current"
  94.         " LoadWB to LoadWB.orig and install a tiny replacement to load"
  95.         " Scalos intead of the original Workbench"
  96.     )
  97. )
  98.  
  99. (set #startup-scalos "Scalos: assign is about add to you user-startup")
  100.  
  101. (set #startup-scalos-help
  102.     (cat
  103.         "An Assign Scalos: will be added to your user-startup"
  104.     )
  105. )
  106.  
  107. (set #copy-scalos "Copying Scalos (Mainprogram)...")
  108.  
  109. (set #copy-scalosprefs "Copying Scalos Preferences...")
  110.  
  111. (set #copy-libs1 "Copying Library: iconobject.library ...")
  112. (set #copy-libs2 "Copying Library: mcpgfx.library ...")
  113. (set #copy-libs3 "Copying Library: preferences.library ...")
  114. (set #copy-libs7 "Copying Library: newicon.library ...")
  115.  
  116. (set #copy-libs4 "Copying Datatype: amigaiconobject.datatype ...")
  117. (set #copy-libs5 "Copying Datatype: iconobject.datatype ...")
  118. (set #copy-libs6 "Copying Datatype: newiconobject.datatype ...")
  119.  
  120. (set #copy-muilib "Copying MCPFrame.mcc ...")
  121.  
  122. (set #copy-modules "Copying selected modules...")
  123.  
  124. (set #copy-classes "Copying required datatypes (Classes)...")
  125.  
  126. (set #copy-datatypes "Copying required datatypes (Devs)...")
  127.  
  128. (set #copy-catalog "Copying desired translations...")
  129.  
  130. (set #copy-presets "Copying Presets...")
  131.  
  132. (set #copy-plugins "Copying Plugins...")
  133.  
  134. (set #copy-tools "Copying Tools...")
  135.  
  136. (set #copy-guides "Copying Guides...")
  137.  
  138. (set #copy-loadwb "Copying LoadWB replacement...")
  139.  
  140. (set #rename-loadwborg "Renaming of original LoadWB...")
  141.  
  142. (set #rename-loadwbscalos "Renaming/Installing Scalos-LoadWB...")
  143.  
  144. (set #register-thank
  145.     (cat
  146.         "Thank you for registering Scalos\n\n"
  147.         "I appreciate your support!\n\n"
  148.         "Keep on supporting aMIGa!"
  149.     )
  150. )
  151.  
  152. (set #mypleasure "My Pleasure!")
  153.  
  154. (set #nomui
  155.     (cat
  156.         "The Install-Script couldn't find a installed MUI-Version!\n\n"
  157.         "MUI 3.6 or higher is required to run Scalos(Prefs)\n\n"
  158.         "Would you like to continue the installation?"
  159.     )
  160. )
  161.  
  162. (set #nomui-help
  163.     (cat
  164.         "MUI is an enhanced userinterface! You can get a"
  165.         " Shareware version via Aminet!"
  166.     )
  167. )
  168.  
  169. (set #makedir-scalos "Creating Scalos-Destination...")
  170.  
  171. (set #makedir-scalos "Creating Prefs-Destination...")
  172.  
  173.  
  174. ;===[ GERMAN ]==============================================================
  175. (if (= @language "deutsch")
  176.     (
  177.     (set languages-default 2)
  178.     )
  179. )
  180. (if (= @language "deutsch")
  181.     (
  182.     (set guides-default 2)
  183.     )
  184. )
  185. ;============================== PROGRAM-START================================
  186.  
  187. (set @default-dest "")
  188.  
  189. ;Check Kickstart (>= v3.0) Version.
  190.  
  191. (if (< (/ (getversion) 65536) 39)
  192.     (abort #bad-kick)
  193. )
  194. (set processor (database "cpu"))
  195. (if (< processor "68020")
  196.     (abort #bad-cpu)
  197. )
  198.  
  199. ;(set muilib-path 0)
  200. ;(if (exists "MUI:Libs/muimaster.library" (NOREQ))
  201. ;    (set muilib-path "MUI:Libs/muimaster.library")
  202. ;    (if (exists "Libs:muimaster.library")
  203. ;        (set muilib-path "Libs:muimaster.library")
  204. ;        (if    (NOT
  205. ;                (askbool
  206. ;                    (prompt #nomui)
  207. ;                    (help   #nomui-help)
  208. ;                )
  209. ;            )
  210. ;            (abort #bad-mui)
  211. ;        )
  212. ;    )
  213. ;)
  214.  
  215. ;(if muilib-path
  216. ;    (if (< (/ (getversion "Libs:muimaster.library") 65536) 17)
  217. ;        (abort #bad-mui)
  218. ;    )
  219. ;)
  220.  
  221. (message #install-start)
  222. (welcome)
  223.  
  224. (complete 0)
  225.  
  226. ;===[ select Scalos Destination ]============================================
  227.  
  228. (if (exists "Scalos:" (NOREQ))
  229.  (
  230.      (set firstinstall 0)
  231.      (set scalos-dest "Scalos:")
  232.  )
  233.  (    (set firstinstall 1)
  234.      (set scalos-dest
  235.         (askdir
  236.             (prompt    #where-scalos)
  237.             (help    #where-scalos-help "\n\n" @askdir-help)
  238.             (default "SYS:Scalos")
  239.             (newpath)
  240.         )
  241.     )
  242.     (if (not (exists scalos-dest))
  243.         (makedir scalos-dest
  244.             (prompt #makedir-scalos)
  245.             (help    @makedir-help)
  246.         )
  247.     )
  248.     (makeassign "Scalos" scalos-dest)
  249.  )
  250. )
  251.  
  252.  
  253. (set scalosprefs-dest
  254.     (askdir
  255.         (prompt    #where-scalosprefs)
  256.         (help    #where-scalosprefs-help "\n\n" @askdir-help)
  257.         (default "Scalos:Prefs")
  258.         (newpath)
  259.     )
  260. )
  261.  
  262. (set languages
  263.     (askoptions
  264.         (prompt    #languages-select)
  265.         (help    #languages-select-help "\n\n" @askoptions-help)
  266.         (choices
  267.             "English (built in)"
  268.             "Deutsch"
  269.             "Français"
  270.             "ÃeÓtina"
  271.             "Dansk"
  272.             "Español"
  273.             "Italiano"
  274.             "Svenska"
  275.         )
  276.         (default languages-default)
  277.     )
  278. )
  279.  
  280. (set guides
  281.     (askoptions
  282.         (prompt    #guides-select)
  283.         (help    #guides-select-help "\n\n" @askoptions-help)
  284.         (choices
  285.             "English"
  286.             "Deutsch"
  287.             "Italian"
  288.             "Français"
  289.         )
  290.         (default guides-default)
  291.     )
  292. )
  293.  
  294. ;Preparation for MUI-Library
  295. (if (not (exists "MUI:" (noreq)))
  296.     (set mui-dest
  297.         (askdir
  298.             (prompt    #where-muilib)
  299.             (help    #where-muilib-help "\n\n" @askdir-help)
  300.             (default "Libs:MUI")
  301.         )
  302.     )
  303.     (set mui-dest "MUI:Libs/MUI")
  304. )
  305.  
  306. (set mods
  307.     (askchoice
  308.         (prompt    #moduletype-select)
  309.         (help    #moduletype-select-help "\n\n" @askoptions-help)
  310.         (choices
  311.             "MUI"
  312.             "Class Act"
  313.             "GadTools"
  314.         )
  315.         (default 0)
  316.     )
  317. )
  318.  
  319.  
  320. (set plugin
  321.     (askbool
  322.         (prompt #plugin-select)
  323.         (help #plugin-select-help)
  324.         (default 1)
  325.     )
  326. )
  327.  
  328. (set autostart 0)
  329. (if (AND (OR (exists "S:Scalos.key" (NOREQ)) (exists "S/Scalos.key" (NOREQ))) (NOT (exists "C:LoadWB.orig" (NOREQ))))
  330.     (set autostart
  331.         (askbool
  332.             (prompt #autostart-select)
  333.             (help #autostart-select-help)
  334.             (default 1)
  335.         )
  336.     )
  337. )
  338.  
  339.  
  340. ;===[ Real Installation ]====================================================
  341.  
  342. ;Create Scalos: Assign
  343. (if firstinstall
  344.  (
  345.     (makedir scalos-dest
  346.         (prompt    #makedir-scalos)
  347.         (help    #makedir-scalos-help "\n\n" @makedir-help)
  348.         (infos)
  349.     )
  350.     (startup @app-name
  351.         (prompt    #startup-scalos)
  352.         (help    #startup-scalos-help "\n\n" @startup-help)
  353.         (command 'Assign Scalos: \"' scalos-dest '\"\n')
  354.     )
  355.  )
  356. )
  357.  
  358. (complete 5)
  359.  
  360. ;Copy Scalos-Mainfile
  361. (copyfiles
  362.     (prompt    #copy-scalos)
  363.     (source    "Scalos")
  364.     (dest    scalos-dest)
  365.     (files)
  366.     (infos)
  367. )
  368.  
  369. (complete 10)
  370.  
  371. ;Copy Prefs
  372. (if (not (exists scalosprefs-dest (NOREQ)))
  373.     (
  374.         (makedir scalosprefs-dest
  375.             (prompt #makedir-prefs)
  376.             (help    @makedir-help)
  377.         )
  378.     )
  379. )
  380.  
  381. (copyfiles
  382.     (prompt    #copy-scalosprefs)
  383.     (source    "Prefs/")
  384.     (dest    scalosprefs-dest)
  385.     (infos)
  386.     (all)
  387. )
  388.  
  389. (complete 20)
  390.  
  391. (copylib
  392.     (prompt    #copy-libs1)
  393.     (source    ("Libs/iconobject.library"))
  394.     (dest    "Libs:")
  395.     (help    @copylib-help)
  396.     (confirm)
  397. )
  398.  
  399. (copylib
  400.     (prompt    #copy-libs2)
  401.     (source    ("Libs/mcpgfx.library"))
  402.     (dest    "Libs:")
  403.     (help    @copylib-help)
  404.     (confirm)
  405. )
  406.  
  407. (copylib
  408.     (prompt    #copy-libs3)
  409.     (source    ("Libs/preferences.library"))
  410.     (dest    "Libs:")
  411.     (help    @copylib-help)
  412.     (confirm)
  413. )
  414.  
  415. (copylib
  416.     (prompt    #copy-libs7)
  417.     (source    ("Libs/newicon.library"))
  418.     (dest    "Libs:")
  419.     (help    @copylib-help)
  420.     (confirm)
  421. )
  422.  
  423. (complete 30)
  424.  
  425. ;Copy MUI Lib:
  426. (copylib
  427.     (prompt    #copy-muilib)
  428.     (source "Libs/MUI/MCPFrame.mcc")
  429.     (dest    mui-dest)
  430.     (help    @copylib-help)
  431.     (confirm)
  432. )
  433.  
  434. (complete 40)
  435.  
  436. ;Copy Required/Selected Modules
  437. (if (= mods 0)
  438.     (set module-path "Modules_MUI")
  439. )
  440. (if (= mods 1)
  441.     (set module-path "Modules_CA")
  442. )
  443. (if (= mods 2)
  444.     (set module-path "Modules_GT")
  445. )
  446.  
  447. (copyfiles
  448.     (prompt    #copy-modules)
  449.     (source    module-path)
  450.     (dest    (tackon scalos-dest "Modules"))
  451.     (all)
  452. )
  453.  
  454. (complete 50)
  455.  
  456. (copylib
  457.     (prompt    #copy-libs4)
  458.     (source    ("Classes/Datatypes/amigaiconobject.datatype"))
  459.     (dest    "SYS:Classes/Datatypes")
  460.     (help    @copylib-help)
  461.     (confirm)
  462. )
  463.  
  464. (copylib
  465.     (prompt    #copy-libs5)
  466.     (source    ("Classes/Datatypes/iconobject.datatype"))
  467.     (dest    "SYS:Classes/Datatypes")
  468.     (help    @copylib-help)
  469.     (confirm)
  470. )
  471.  
  472. (copylib
  473.     (prompt    #copy-libs6)
  474.     (source    ("Classes/Datatypes/newiconobject.datatype"))
  475.     (dest    "SYS:Classes/Datatypes")
  476.     (help    @copylib-help)
  477.     (confirm)
  478. )
  479.  
  480. (complete 60)
  481.  
  482. ;Copy "Devs/Datatypes/#?" To "Devs:Datatypes"
  483. (copyfiles
  484.     (prompt    #copy-datatypes)
  485.     (source    "Devs/Datatypes")
  486.     (dest    "Devs:Datatypes")
  487.     (infos)
  488.     (all)
  489. )
  490.  
  491. (complete 70)
  492.  
  493. ;Copy of the catalog files (with version check)
  494. (if (= (exists "Locale:") 2)
  495.     (
  496.         (set n 0)
  497.         (while
  498.             (set language
  499.                 (select n
  500.                     "English"
  501.                     "Deutsch"
  502.                     "français"
  503.                     "ÃeÓtina"
  504.                     "Dansk"
  505.                     "Español"
  506.                     "Italiano"
  507.                     "Svenska"
  508.                     ""
  509.                 )
  510.             )
  511.             (
  512.                 (if (IN languages n)
  513.                     (if (<> 0 n)   ; No catalog for english strings...
  514.                         (
  515.                             (set catalogs (tackon "Locale/Catalogs" (tackon language "Scalos")))
  516.                             (set destination (tackon "Locale:Catalogs" (tackon language "Scalos")))
  517.                             (makedir destination)
  518. ;-------------------------------------------------------------------------------------------
  519.                             (
  520.                                 (set lala 0)
  521.                                 (while
  522.                                     (set scaloscat
  523.                                         (select lala
  524.                                             "Scalos_Delete.catalog"
  525.                                             "Scalos_ECommand.catalog"
  526.                                             "Scalos_NewDrawer.catalog"
  527.                                             "Scalos_OpenLocation.catalog"
  528.                                             "Scalos_Rename.catalog"
  529.                                             "Scalos_ETrashcan.catalog"
  530.                                             "Scalos_WBInfo.catalog"
  531.                                             "Scalos.catalog"
  532.                                             "ScalosPattern.catalog"
  533.                                             "ScalosPrefs.catalog"
  534.                                             "ScalosPalette.catalog"
  535.                                             "ScalosMenu.catalog"
  536.                                             ""
  537.                                         )
  538.                                     )
  539.                                     (
  540.                                         (if (exists (tackon catalogs scaloscat)) 
  541.                                             (copylib
  542.                                                 (prompt    #copy-catalog)
  543.                                                 (source    (tackon catalogs scaloscat))
  544.                                                 (dest    destination)
  545.                                                 (help    @copylib-help)
  546.                                                 (confirm)
  547.                                             )
  548.                                         )
  549.                                         (set lala (+ lala 1))
  550.                                     )
  551.                                 )
  552.                             )
  553. ;-----------------------------------------------------------------------------------------------
  554.                         )
  555.                     )
  556.                 )
  557.                 (set n (+ n 1))
  558.             )
  559.         )
  560.     )
  561. )
  562.  
  563. ;Copy of the guide files
  564. (
  565.     (set n 0)
  566.     (while
  567.         (set guide
  568.             (select n
  569.                 "Scalos_eng.guide"
  570.                 "Scalos_ger.guide"
  571.                 "Scalos_ita.guide"
  572.                 "Scalos_fr.guide"
  573.                 ""
  574.             )
  575.         )
  576.         (
  577.             (if (IN guides n)
  578.                 (copyfiles
  579.                     (prompt    #copy-guides)
  580.                     (source    guide)
  581.                     (dest    scalos-dest)
  582.                     (files)
  583.                     (infos)
  584.                 )
  585.             )
  586.             (set n (+ n 1))
  587.         )
  588.     )
  589. )
  590.  
  591. (complete 80)
  592.  
  593. ;Copy presets
  594. (copyfiles
  595.     (prompt    #copy-presets)
  596.     (source    "Presets")
  597.     (dest    "SYS:Prefs/Presets")
  598.     (infos)
  599.     (all)
  600. )
  601.  
  602. ;Copy Plugin + Tools
  603. (if plugin
  604.     (
  605.         (copyfiles
  606.             (prompt    #copy-plugins)
  607.             (source    "PlugIns")
  608.             (dest    (tackon scalos-dest "Plugins"))
  609.             (infos)
  610.             (all)
  611.         )
  612.         (copyfiles
  613.             (prompt    #copy-tools)
  614.             (source    "Tools")
  615.             (dest    (tackon scalos-dest "Tools"))
  616.             (infos)
  617.             (all)
  618.         )
  619.     )
  620. )
  621.  
  622. (complete 90)
  623.  
  624. ;Installing LoadWB-Replacement
  625. (if autostart
  626.     (
  627.         (copyfiles
  628.             (prompt #copy-loadwb)
  629.             (source    "LoadWB.Scalos")
  630.             (dest    "C:")
  631.         )
  632.         (if    (rename "C:LoadWB" "C:LoadWB.orig"
  633.                 (prompt #rename-loadwborg)
  634.             )
  635.             (rename "C:LoadWB.scalos" "C:LoadWB"
  636.                 (prompt #rename-loadwbscalos)
  637.             )
  638.         )
  639.     )
  640. )
  641.  
  642. (if (exists "S/Scalos.key" (NOREQ))
  643.     (
  644.         (askbool
  645.             (prompt    #register-thank)
  646.             (help    @askbool-help)
  647.             (choices #mypleasure #mypleasure)
  648.         )
  649.         (copyfiles
  650.             (prompt #copy-scaloskey)
  651.             (source    "S/Scalos.key")
  652.             (dest    "S:")
  653.         )
  654.     )
  655. )
  656.  
  657. (complete 100)
  658.  
  659. (EXIT #install-exit)
  660.